home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / READMACR.C < prev    next >
C/C++ Source or Header  |  1989-06-20  |  7KB  |  270 lines
  1.  
  2. In article <347@eldritch.hss.bu.oz>, grue@melmac.hss.bu.oz (Frobozz) writes:
  3. > In article <YYXJcay00UoL89Vkp3@andrew.cmu.edu> nf0i+@andrew.cmu.edu (Norman William Franke, III) writes:
  4. > >I would also like information on using the serial ports at speeds greater
  5. > >than 57K, or more to the point, how to read data from a MacRecorder.
  6. > >
  7. > >Norman Franke
  8. > >nf0i+@andrew.cmu.edu
  9. > 
  10. > 
  11. > Count me in too. (esp the bit about a MacRecorder)
  12. > 
  13. >                 Paul Dale
  14. >
  15.     What follows is some source for reading the data direct from a Mac-
  16. Recorder that was posted to this group previously.  I did not write it, so
  17. I take no credit and especially NO BLAME!
  18.  
  19. /* Written  6:18 pm  Nov 26, 1988 by palmer@tybalt.caltech.edu in
  20. uxe.cso.uiuc.edu:comp.sys.mac.programmer */
  21. Due to the large number of requests that have been posted recently, I
  22. am posting this code which reads the MacRecorder (sampling at 22 kHz).
  23.  
  24. MacRecorder comes with no programming documentation, so this is as good
  25. as it gets.  If anyone has anything better, I'd be very interested.
  26.  
  27. I don't know where the original code comes from, but I made modifications
  28. which allows it to work as an oscilloscope (on an SE or earlier machine.)
  29. The style of the original code was lousy, and I opted to maintain stylistic
  30. unity with my additions.
  31.  
  32. The core of the program is the routines which set up the port for reading
  33. an externally clocked data stream.  To understand these, you must read the
  34. Zilog SCC (Serial communications controller) data sheets.  At the MacRecorder's
  35. input rate, interrupt driven routines are infeasible, so it uses continuous
  36. polling.  This may cause data loss if other interrupts occur.
  37.  
  38. MacRecorder also transmits its data MSB first (if you understand how an SAR
  39. ADC works, you will understand why.)  This is the opposite of most serial
  40. ports, and so a translation table (included) which reverse the bit order
  41. is needed.
  42.  
  43. Here is the code:
  44. --------------------------------------------------------------
  45.  
  46. #include    <stdio.h>
  47. #include    <QuickDraw.h>
  48. #define     x1Clock        12    /* Clock mode for Scc chip */
  49. #define     x16Clock    76
  50.  
  51.  
  52. #define LENGTH 750        /* how much to read */
  53. #define WIDTH 512        /* how large the screen is */
  54. int Length = LENGTH,RealLength,x;
  55. unsigned char buffer[LENGTH];
  56. unsigned char table[256];
  57. int screentable[256];
  58. #define TOPMAR 20
  59.  
  60. void Die();
  61.  
  62. unsigned char *FindMin();
  63.  
  64. extern long *zero:0;
  65. main() 
  66. {
  67.     register unsigned char *pch;
  68.     Rect r;
  69.     long SccIn();
  70.     
  71.     int i;
  72.         
  73.     InitGraf(&thePort);
  74.     InitFonts ();
  75.     InitWindows ();
  76.     InitMenus ();
  77.     TEInit ();
  78.     InitDialogs(&Die);
  79.     InitCursor ();
  80.  
  81.     SccInit();
  82.     TableInit();
  83.     r = thePort->portBits.bounds;
  84.     PaintRect(&r);
  85.  
  86.     r.top = TOPMAR;
  87.     r.bottom = TOPMAR+256;
  88.  
  89.     for (i = 0 ; i < 256 ; i++)
  90.         screentable[i] = (table[i] + TOPMAR) * thePort->portBits.rowBytes;
  91.     do {
  92.         PenNormal();
  93.         RealLength = MySccIn(buffer, LENGTH);
  94.         pch = FindMin(buffer, LENGTH - WIDTH);
  95.         DrawCurve(pch);
  96.         if (Button()) {
  97.             SysBeep(3);
  98.             Die();
  99.         }
  100.         PaintRect(&r);
  101.     } while (RealLength>=LENGTH);
  102.     SysBeep(12);
  103. }
  104.  
  105. DrawCurve(pch)        /* works only on MacI under non-multi finder */
  106. register unsigned char *pch;
  107. {
  108.     register int byte;
  109.     register int bit;
  110.     register int *pscreentable = screentable;
  111.     register unsigned char *pscreen  = 
  112.                 (unsigned char *)(thePort->portBits.baseAddr);
  113.     
  114.     for (byte = 0 ; byte < 64 ; byte++)
  115.         for (bit = 0x100 ; bit >>= 1 ; )
  116.             pscreen[pscreentable[*pch++] + byte] ^= (char)bit;
  117. }
  118.  
  119. unsigned char *FindMin(pch, cch)
  120. unsigned char *pch;
  121. int cch;
  122. {
  123.     unsigned char *pchmin = pch;
  124.     unsigned char min = *pch;
  125.     
  126. if (cch < 0) SysBeep(3);
  127.     for ( ; --cch > 0 ; )
  128.         if (*pch++ < min) {
  129.             pchmin = pch - 1;
  130.             min = *pchmin;
  131.         }
  132.     return pchmin;
  133. } 
  134.  
  135. char **SccRd,**SccWr,*SccRBase,*SccWBase;    /* pointer to Scc chip */
  136. int aCtl = 2;                                /* offsets */
  137. int aData = 6;
  138. int bCtl = 0;
  139. int dData = 4;
  140. SccInit() /* initializes the Scc chip for the MacRecorder Plus */
  141.     /* for the regular MacRecorder II, replace x1Clock with x16Clock below */
  142. {    
  143.     SccRd = (char **)0x1D8;        
  144.     SccWr = (char **)0x1DC;        
  145.     SccRBase = (char *)*SccRd;    
  146.     SccWBase = (char *)*SccWr;
  147.     SccPoke(9,2);            /* NV only */
  148.                         /* following line is for MacRecorder Plus */
  149.     SccPoke(4,x1Clock);    /* 2 stop bits, Async, x1 clock mode  */
  150.     SccPoke(1,1);            /* no Rx/Tx Int, Ext Int ON (mouse) */
  151.     SccPoke(3,193);            /* initialize receiver, 8bits */
  152.     SccPoke(5,122);            /* 8bits/char, send break(for other hardware!), Tx enable */
  153.     SccPoke(11,48);            /* use TRxC as receiver clock */
  154.     SccPoke(14,1);            /* BR enable, nothing else */
  155.     SccPoke(15,8);            /* Interrupt on CD changes (mouse), turn off CTS interrupt */
  156.     SccPoke(64,64);            /* Reset Rx CRC */
  157.     SccPoke(9,10);            /* initialize master interrupt and NV */
  158. }
  159. SccPoke(n,v)        /* accesses the modem port */
  160. char n,v;
  161. {
  162.     *(SccWBase + aCtl) = n;    /* set index to register n */
  163.     *(SccWBase + aCtl) = v;    /* write v into register n */
  164. }
  165. SccPeek(n)
  166. char n;
  167. {    
  168.     *(SccWBase + aCtl) = n;        /* set index to register n */
  169.     return(*(SccRBase + aCtl));    /* retrun value in register n */
  170. }
  171. TableInit()
  172. {
  173.     MakeTable(&table[0]);
  174.     ModifyTable(&table[0]);
  175. }
  176. MakeTable(table)
  177. register char *table;
  178. {
  179.     asm    {
  180.             adda.w    #256,table
  181.             move.w    #255,D0
  182.     lp0:    move.b    D0,D1
  183.             move.w    #07,D3
  184.     lp1:    lsr.b    #01,D1
  185.             roxl.b    #01,D2
  186.             dbf        D3,@lp1
  187.             move.b    D2,-(table)
  188.             dbf        D0,@lp0
  189.         }
  190. }
  191. #ifdef FOO   /*( this is not needed if you use unsigned chars */
  192. ModifyTable(table)
  193. char *table;
  194. {
  195.     int i;
  196.     for (i=0;i<256;i++)
  197.     {
  198.         if ( table[i]>=0 ) table[i] -= 128;
  199.         else table[i] += 128 ;
  200.     }
  201. }
  202. #endif
  203. int MySccIn(dest, count)
  204. register char *dest;
  205. register int count;
  206. {
  207.     int    iCount = count;    /* actual number of bytes received */
  208.     register    char    *pSccRBase = SccRBase;
  209.     while (count-- > 0 && !Button()) {
  210.         while (0 == (pSccRBase[2] & 0x1))
  211.             if (Button())
  212.                 return (iCount - count + 1);
  213.         *dest++ = pSccRBase[6];
  214.     }
  215.     return iCount;
  216. }
  217.  
  218. long SccIn(dest,count)
  219. register char *dest;
  220. register long count;
  221. {
  222.     register    unsigned char    *Table;        /* a lookup table */
  223.     register    long    aCount;    /* actual number of bytes received */
  224.     Table = &table[0];
  225.     aCount = 0L;
  226.     asm    {
  227.         move.l  #0x9FFFF8,A0            ; /* SccRBase   */
  228. #ifdef FOO
  229.         move.l    #0xEFE1FE,A1            ; /* mouse button */
  230.         clr.l    D0
  231.     lp:    btst    #03,(A1)                ; /* mouse clicked? */
  232.         beq        @lq
  233. #else
  234.     }
  235.     lp:    if (Button())
  236.             return(aCount);
  237.     asm {
  238. #endif
  239.         btst    #00,2(A0)                ; /* SccRBase + aCtl */
  240.         beq        @lp
  241.         move.b    6(A0), D0                ; /* SccRBase + aData */
  242.         move.b    00(Table,D0), (dest)+    ; /* translate in lookup table */
  243.         addq.l    #1,aCount                ; /* one more byte received */
  244.         subq.l    #1,count
  245.         bne        @lp
  246.     lq:    nop
  247.         }
  248.     return(aCount);
  249. }
  250.  
  251. void Die()
  252. {
  253.     ExitToShell();
  254. }
  255. ----------------------------------------------------------------
  256.  
  257.         David Palmer
  258.         palmer@tybalt.caltech.edu
  259.         ...rutgers!cit-vax!tybalt.caltech.edu!palmer
  260.     "I was sad that I had no shirt, until I met a man with no torso"
  261. /* End of text from uxe.cso.uiuc.edu:comp.sys.mac.programmer */
  262.  
  263. -- 
  264. +--------------------------------------------------+
  265. Leonard Rosenthol        |  GEnie : MACgician
  266. Lazerware, inc.          |  MacNet: MACgician
  267. UUCP: svc@well.UUCP      |  ALink : D0025
  268.  
  269.  
  270.